﻿unit CSVFile;

interface

uses
  Classes,SysUtils,dialogs;

procedure ExportToCSV(List : TStringList;FileName:string);

implementation

procedure ExportToCSV(List : TStringList;FileName:string);
var
  CSVFile : TextFile;
  I : Integer;
  Index : Integer;
begin
  AssignFile(CSVFile,FileName);  //关联 文件变量 和 文件的路径 关联
  try
    ReWrite(CSVFile);   //创建或清空已存在的文件，并进行写入
    for I := 0 to List.Count - 1 do
    begin
      Index := POS('=',List[I]);
      Writeln(CSVFile,COPY(List[I],Index+1,Length(List[I])-Index));  //写入内容
    end;
  finally
    CloseFile(CSVFile);
  end;
end;

end.
